Public Class AttributeCleanupResultDetail
    Protected _CommonName As String
    Protected _AttributeName As String
    Protected _CurrentValue As String
    Protected _NewValue As String
    Protected _IsCleaned As Boolean
    Protected _CleanComments As String

    Public Sub New()

    End Sub

    Public Sub New(ByVal BaseAttributeCleanupSet As AttributeCleanupSet, ByVal CommonName As String)

        With BaseAttributeCleanupSet
            Me._AttributeName = .AttributeName
            Me._CurrentValue = .CurrentValue
            Me._NewValue = .NewValue
        End With

        Me._CommonName = CommonName

    End Sub

    Public Property CommonName() As String
        Get
            Return _CommonName
        End Get
        Set(ByVal value As String)
            _CommonName = value
        End Set
    End Property

    Public Property AttributeName() As String
        Get
            Return _AttributeName
        End Get
        Set(ByVal value As String)
            _AttributeName = value
        End Set
    End Property

    Public Property CurrentValue() As String
        Get
            Return _CurrentValue
        End Get
        Set(ByVal value As String)
            _CurrentValue = value
        End Set
    End Property

    Public Property NewValue() As String
        Get
            Return _NewValue
        End Get
        Set(ByVal value As String)
            _NewValue = value
        End Set
    End Property

    Public Property IsCleaned() As Boolean
        Get
            Return _IsCleaned
        End Get
        Set(ByVal value As Boolean)
            _IsCleaned = value
        End Set
    End Property

    Public Property CleanComments() As String
        Get
            Return _CleanComments
        End Get
        Set(ByVal value As String)
            _CleanComments = value
        End Set
    End Property

End Class
